Fritz: All Fritz/All Fritz.zip/All Fritz/FILES/PROGSCAL/TBUTIL2.LZH/MEM.INC

Text File | 1984-07-13 | 331b | 18 lines

PROCEDURE ShowMem;
{ procedure for Bios interrupt $12 (memory size)
{ Danny Cavasos       June 1984 }
TYPE
  MemRec=RECORD
    AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS:INTEGER;
  END;
VAR
  MemParm:MemRec;
BEGIN
  GOTOXY(40,24);
  WITH MemParm DO
    BEGIN
      INTR($12,Memparm);
      WRITE(AX,'K Ram');
    END;
END;